home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 029a / brodirxy.zip / DIR.PGM < prev   
Text File  |  1991-02-23  |  7KB  |  75 lines
  1. «glSv»
  2. by Ernie Wallengren
  3. 9/2/89
  4.    Rev. 2/22/91 to allow file-search and keep cursor in directory field and to allow searching for file extension. By Jim Franklin, CIS 72136,224.
  5. «lbRd»«sx99,«rc»»«if@siz(«is99»)==3&«is99»ε«is58»=>0»«pv99»«glRd»«ei»«if«pv53»==0»«glR2»«ei»«glSk»
  6.  
  7. «lbSv» ü ü?«sx55,«vanw»»«sx56,«va$ws»»«if((«pv55»==0)&(«pv56»==1))»«prAbort, Store or Open a Window»«ex»«ei»«sv04,»«sv13,
  8. »«sv27,»«sv78,N»«sv89,Y»«sv51,abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ÄäâàáÅåªæÇçëêèÉéïîìíñÑôÖöòóºûùúÜüÿ£₧Æ¥αßΓπΣσµτΦΘΩδ∞φε!@#$%^&()_`»«sv52,EDXPRLUKVTQOC\FZA/»«sx53,0»«sx54,0»«sv57,TUXDPCAQ»«sv58, Çg ÇU Ç[ Çc ü3 ü5 ü7 ü1 Çw Çy Ç± ÇM Ç╖ Ç½ ü! ü#»«sv59,/.,
  9. »«su66, ües 0 ü     ü»«su67, ües 1 ü    » üdir ü    «if«ER»==TRUE»«ex»«ei» Çπ ü «sv06,»«su30, üA üse «pv31» ü    «pv34» Ç} ü?»«sv31, 0A»«su32,«if«er»» üA«sx31,«is36»» üjmp «pv33» ü     ü ÇS«pv34» ü?«ei» üú»«sv33,1»«su34, üType filename to find    NewSearch = /    FindAgain = ,    CR ends search«pr » Ç}»«lbCm»«if«pv54»==0» ü<E>dit <R>ead <D>elete <P>rint <C>opy <L>oad <T>ag <A>TagAll <O>ptions <Q>uit. ÇS ü!«prMove Cursor, Select Function»«glRd»«ei» ü<Z>NewDrv <X>Dir <\>Root <F>ilspec r<U>n <V>Do </>Find <K>allPm <O>ptns <Q>uit ÇS ü!«prMove Cursor, Select Function»«glRd»
  10.  
  11. «lbR2»«sx99,@upr(«is99»)»«if«is99»ε«is52»==-1»«glRd»«ei»«sx98,«is99»ε«is52»»«if«pv98»==0»«glCa»«ei»«if«pv98»==1»«glEr»«ei»«if«pv98»==2»«glCd»«ei»«if((«pv98»==3)!(«pv98»==8))»«glTy»«ei»«if«pv98»==4»«glRx»«ei»«if«pv98»==5»«glLo»«ei»«if«pv98»==6»«glRu»«ei»«if«pv98»==7»«glCp»«ei»«if«pv98»==9»«glXT»«ei»«if«pv98»==10»«gt66»«ex»«ei»«if«pv98»==11»«glOp»«ei»«if«pv98»==12» ü!«sx60,«va$pa»»«gt67»«glCo»«ei»«if«pv98»==13»«sx54,0» ücd \ ü     üdir ü    «glCm»«ei»«if«pv98»==14»«glFi»«ei»«if«pv98»==15»«glNe»«ei»«if«pv98»==17» Ç±«pv34»«glFn»
  12. «ei»«lbTa»«prWorking...»«gt67» üA Ç± üci /// ü     ÇM«sx64,«cp»» Çk ü7 ü7 ü7 Ç[ Çk Ç╤ üseba /<DIR>/ ü    «if«ER»==TRUE» Ç±«ei» ücia / 0A/ 0A/ ü     ÇM Ç∙«sx63,«cp»»«sx53,«pv63»-«pv64»» Ç± üse // ü     Ç[ ü? ü;«glCt»
  13.  
  14. «lbCa» üca ü    «if«ER»==TRUE»«glCm»«ei»«ex»
  15.  
  16. «lbEr» üdel ÇS ü    «glCm»
  17.  
  18. «lbCd» ücd ÇS ü    «if«ER»==TRUE»«glCm»«ei» üdir ü    «sx54,0»«glCm»
  19.  
  20. «lbTy» ü! Çº«sx97,«cl»»«if«pv97»==14»«lbNw» üInvalid request. ÇS ü!«prPress any key»«sx99,«rc»»«glCm»«ei»«if«pv97»==10» ü9. Çº ü9 Ç╙«glMa»«ei»«if«pv97»>10» ü9 Ç╙«glMa»«ei»«glNw»«lbMa» Çk ü! Çk«sv06» ü  üdir ü     ü«if«pv98»==3»ty «pv06» ü    «ex»«ei»do «pv06» ü    «glCm»
  21.  
  22. «lbRx» üre ÇS ü    «if«ER»==TRUE»«glCm»«ei»«ex»
  23.  
  24. «lbLo» üload ÇS ü    «glCm»
  25.  
  26. «lbRu» ürun ÇS ü    «if«ER»==TRUE»«glNw»«ei»«ex»
  27.  
  28. «lbCp» ücap ü    «if«ER»==TRUE»«glCm»«ei»«ex»
  29.  
  30. «lbOp»«if«pv54»==0»«sx54,1»«glCm»«ei»«if«pv54»==1»«sx54,0»«glCm»
  31.  
  32. «ei»«lbFi» üFilespec (Press ENTER when ready): «prPress ENTER now for *.*»«lbGf»«sx99,«rc»»«if((«is99»ε«is13»<>0)&(«is99»<>«is27»))»«pv99»«glGf»«ei»«if«is99»ε«is13»<>0»«glGf»«ei» Çw Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧dir ü    «if«ER»==TRUE» üUnable to find match.«prPress a key for *.*»«sx99,«rc»» üdir ü    «ei»«sx54,0»«glCm»
  33.  
  34. «lbNe»«sx60,«va$pa»» üType drive letter: «prPress Esc to abort»«sx99,«rc»»«if«is99»==«is27»»«glCm»«ei» ü«pv99»: ü     üdir ü    «glCm»
  35.  
  36. «lbXT» Çk ü5 Çk«sv06» ü  ü3«if«is06»==«is04»»«glNt»«ei» Çº«sx97,«cl»» ü!«if((«pv97»==10)!(«pv97»>14))» Ç[ ü1«sx53,«pv53»+1»«glTl»«ei»«lbNt» üUnable to tag or already tagged! ÇS ü!«prPress a key»«sx99,«rc»»«if«pv53»>0»«glTl»«ei»«glCm»
  37.  
  38. «lbSk»«sx99,@upr(«is99»)»«if«is99»ε«is57»==-1»«glRd»«ei»«sx98,«is99»ε«is57»»«if«pv98»==0»«glXT»«ei»«if«pv98»==1»«glUt»«ei»«if«pv98»==2»«glUn»«ei»«gt67»«if«pv98»==3»«glEa»«ei»«if«pv98»==4»«glPr»«ei»«if«pv98»==5»«sx60,«va$pa»»«gt67»«glCo»«ei»«if«pv98»==6»«glTa»«ei» Ç± üci /// ü    «gt66»«ex»
  39.  
  40. «lbTl» ü<T>ag <U>ntag <A>Tag All <X>Untag All <C>opy· <D>elete· <P>rint· <Q>uit. ÇS ü!«prMove Cursor, Select Function»«glRd»
  41.  
  42. «lbUt» ü! Çk ü5 Çk«sv06» ü  ü3«if«is06»<>«is04»»«glRd»«ei» Ç╧ ü1«sx53,«pv53»-1»«if«pv53»>0»«glRd»«ei»«sx54,0»«glCm»
  43.  
  44. «lbUn» Ç± üci /// ü    «sx53,0»«sx54,0»«glCm»
  45.  
  46. «lbEa» üPrompt for each erase (y/n)?  <Press Esc to Cancel.> ÇS«lbEk»«sx99,«rc»»«sx99,@upr(«is99»)»«if«is99»==«is89»» Ç±«glSl»«ei»«if«is99»==«is78»» Ç±«glQu»«ei»«if«is99»==«is27»»«gt66»«glTl»«ei»«prType Y, N or Esc»«glEk»
  47.  
  48. «lbQu» üse // ü    «if«ER»==TRUE»«sx53,0»«gt66»«glCm»«ei» ü3«sx97,«cl»»«if«pv97»==0» Ç╧ üernv ÇS ü    «ei»«glQu»
  49.  
  50. «lbSl» üse // ü    «if«ER»==TRUE»«glCt»«ei» ü3«sx97,«cl»»«if«pv97»<>0»«glSl»«ei» üErase this file (y/n)?  <Press Esc to Cancel.> ÇS«lbAn»«sx99,«rc»»«sx99,@upr(«is99»)»«if«is99»==«is89»» Ç╧ üernv ÇS ü    «sx53,«pv53»-1»«glSl»«ei»«if«is99»==«is78»» ü5«glSl»«ei»«if«is99»==«is27»»«gt66»«glTl»«ei»«prType Y, N or Esc»«glAn»
  51.  
  52. «lbCt»«gt66»«if«pv53»>0»«glTl»«ei»«sx53,0»«glCm»
  53.  
  54. «lbPr» Ç± üPress Y to print all tagged files; Esc to Cancel. ÇS«lbPd»«sx99,«rc»»«sx99,@upr(«is99»)»«if«is99»==«is27»»«gt66»«glTl»«ei»«if«is99»<>«is89»»«prType Y or Esc»«glPd»«ei»«lbTe» üse // ü    «if«ER»==TRUE»«sx53,0»«gt66»dir ü     üFiles queued to printer.  Press any key.«sx99,«rc»»«glCm»«ei» ü3«sx97,«cl»»«if«pv97»<>0» ü5«glPd»«ei» Ç╧ Çº«sx97,«cl»»«if«pv97»==10» ü9. Çº«ei» ü9 Ç╙ Çk ü! Çk«sv06» ü  üty «pv06» ü    «glTe»
  55.  
  56. «lbCo» üType target drive letter (or Enter for default): «prPress Esc to abort»«sx65,«rc»»«if«is65»==«is27»»«glAb»«ei» üType target pathname, press Enter: \«prPress Esc to abort»«lbCr»«sx99,«rc»»«if«is99»ε«is13»==0»«glEx»«ei»«if«is99»<>«is27»»«pv99»«glCr»«ei»«lbAb»«gt66»«if«pv53»>0»«glTl»«ei» Ç} ü+«glCm»
  57.  
  58. «lbEx» Çm Çw Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧ Ç╧cd «if«is65»ε«is13»==-1»«pv65»:«ei» ü    «if«ER»==TRUE»«glNo»«ei»«if«is65»ε«is13»==-1»«glCh»«ei»«sx62,«va$pa»»«glGe»
  59.  
  60. «lbCh» ü«pv65»: ü    «sx62,«va$pa»» ü«pv60» Çw Çc Çc Ç╙ ü    «lbGe» ücd «pv60» ü    «if«pv53»>0» Ç±«glSe»«ei»«glSo»
  61.  
  62. «lbNo» üPath not found.  Retry (y/n)? «lbRe»«sx99,«rc»»«sx99,@upr(«is99»)»«if«is99»==«is89»»«glCo»«ei»«if«is99»==«is78»»«glAb»«ei»«prType Y or N»«glRe»
  63.  
  64. «lbSe»«gt67» üse // ü    «if«ER»==TRUE»«gt66»«glTl»«ei» ü3«sx97,«cl»»«if«pv97»>0» ü5«glSe»«ei» Ç╧ ücopy «pv62» ÇS ü    y«sx97,«cl»»«if«pv97»==1» ü+«ei» ü7«glSe»
  65.  
  66. «lbSo»«if@siz(«is62»)==2»«sv92,\»«sx62,«is62»+«is92»»«ei»«gt66»copy «pv62» ÇS ü+ ü    y«sx97,«cl»»«if«pv97»==1» ü+«ei»«glCm»
  67.  
  68. «lbFn»«sx99,«rc»»«sx37,«is99»ε«is59»»«if«pv37»==3»«sv31, 0A»«sv33,1»«sv54,0» ü! ü ÇS«glCm»
  69. «ei»«if«pv37»==0»«sv31, 0A»«sv33,1» Ç±«glFn»
  70. «ei»«if«pv37»==2»«gt30»«gt32»«sx33,«cp»»«glFn»
  71. «ei»«if«pv37»==1&@siz(«is31»)>3»«sx36,«is31»»«sx35,@siz(«is31»)»«sx35,13-«pv35»»«sv99, »«glFo»
  72. «ei»«sx36,«is31»»«sx31,«is31»+«is99»» ü! Ç[«gt30»«gt32»«sx33,«cp»»«glFn»
  73. «lbFo»«if«pv35»>0»«sx31,«is31»+«is99»»«sx35,«pv35»-1»«glFo»
  74. «ei» ü! Ç[«gt30»«gt32»«sx33,«cp»»«glFn»
  75.